home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 15: Shareware / PC Actual CDT 15.iso / files / Windows_95_98 / Programacion / ActiveX / NCTWavPlayer.exe / Main / frmDialog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-03-06  |  37.5 KB  |  1,198 lines
  1. VERSION 5.00
  2. Object = "{CDDE8938-1457-11D3-996A-080035000842}#1.0#0"; "NCTWAV~1.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Begin VB.Form frmDialog 
  6.    BackColor       =   &H80000004&
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "NCTWavPlayer ActiveX Control - Test MS VB 6.0"
  9.    ClientHeight    =   3555
  10.    ClientLeft      =   165
  11.    ClientTop       =   450
  12.    ClientWidth     =   10740
  13.    Icon            =   "frmDialog.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   237
  18.    ScaleMode       =   3  'Pixel
  19.    ScaleWidth      =   716
  20.    StartUpPosition =   1  'CenterOwner
  21.    Begin MSComctlLib.ProgressBar ProgressBar1 
  22.       Height          =   120
  23.       Left            =   60
  24.       TabIndex        =   1
  25.       Top             =   3120
  26.       Width           =   8535
  27.       _ExtentX        =   15055
  28.       _ExtentY        =   212
  29.       _Version        =   393216
  30.       Appearance      =   0
  31.       Min             =   1e-4
  32.    End
  33.    Begin VB.Frame Frame6 
  34.       Caption         =   "Gain"
  35.       Height          =   2715
  36.       Left            =   8910
  37.       TabIndex        =   6
  38.       Top             =   360
  39.       Width           =   855
  40.       Begin VB.CheckBox Check6 
  41.          Caption         =   "AGC"
  42.          Height          =   315
  43.          Left            =   120
  44.          TabIndex        =   9
  45.          Top             =   240
  46.          Width           =   690
  47.       End
  48.       Begin MSComctlLib.Slider Slider7 
  49.          Height          =   1995
  50.          Left            =   180
  51.          TabIndex        =   7
  52.          Top             =   600
  53.          Width           =   585
  54.          _ExtentX        =   1032
  55.          _ExtentY        =   3519
  56.          _Version        =   393216
  57.          Orientation     =   1
  58.          SmallChange     =   5
  59.          Max             =   65535
  60.          SelStart        =   65535
  61.          TickStyle       =   2
  62.          TickFrequency   =   6000
  63.          Value           =   65535
  64.       End
  65.    End
  66.    Begin VB.Frame Frame14 
  67.       Caption         =   "Volume"
  68.       Height          =   2715
  69.       Left            =   9840
  70.       TabIndex        =   3
  71.       Top             =   360
  72.       Width           =   855
  73.       Begin MSComctlLib.Slider Slider6 
  74.          Height          =   285
  75.          Left            =   60
  76.          TabIndex        =   5
  77.          Top             =   300
  78.          Width           =   735
  79.          _ExtentX        =   1296
  80.          _ExtentY        =   503
  81.          _Version        =   393216
  82.          SmallChange     =   5
  83.          Max             =   100
  84.          SelStart        =   50
  85.          TickFrequency   =   50
  86.          Value           =   50
  87.          TextPosition    =   1
  88.       End
  89.       Begin MSComctlLib.Slider Slider5 
  90.          Height          =   1995
  91.          Left            =   120
  92.          TabIndex        =   4
  93.          Top             =   600
  94.          Width           =   585
  95.          _ExtentX        =   1032
  96.          _ExtentY        =   3519
  97.          _Version        =   393216
  98.          Orientation     =   1
  99.          SmallChange     =   5
  100.          Max             =   65535
  101.          SelStart        =   65535
  102.          TickStyle       =   2
  103.          TickFrequency   =   6000
  104.          Value           =   65535
  105.       End
  106.    End
  107.    Begin NCTWAVPLAYERLib.NCTWavPlayer NCTWavPlayer1 
  108.       Height          =   2580
  109.       Left            =   60
  110.       TabIndex        =   0
  111.       Top             =   480
  112.       Width           =   8595
  113.       _Version        =   65536
  114.       _ExtentX        =   15161
  115.       _ExtentY        =   4551
  116.       _StockProps     =   0
  117.       clrDigitalWaveform=   1488406
  118.       clrSelectedDigitalWaveform=   16711680
  119.       clrSelectedAnalogWaveform=   8388608
  120.       clrCenterLine   =   128
  121.       clrGrid         =   8421376
  122.       clrPlayCursor   =   12637990
  123.       TempDirectory   =   "c:\windows\temp"
  124.       UndoRedoCount   =   5
  125.       ClearClipboardBeforeExit=   0   'False
  126.       devInput        =   65537
  127.    End
  128.    Begin MSComctlLib.Toolbar Toolbar1 
  129.       Align           =   1  'Align Top
  130.       Height          =   360
  131.       Left            =   0
  132.       TabIndex        =   8
  133.       Top             =   0
  134.       Width           =   10740
  135.       _ExtentX        =   18944
  136.       _ExtentY        =   635
  137.       ButtonWidth     =   609
  138.       ButtonHeight    =   582
  139.       AllowCustomize  =   0   'False
  140.       Appearance      =   1
  141.       Style           =   1
  142.       ImageList       =   "ImageList1"
  143.       _Version        =   393216
  144.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  145.          NumButtons      =   36
  146.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  147.             Key             =   "New"
  148.             Object.ToolTipText     =   "New"
  149.             ImageKey        =   "New"
  150.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  151.                NumButtonMenus  =   1
  152.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  153.                   Enabled         =   0   'False
  154.                   Object.Visible         =   0   'False
  155.                EndProperty
  156.             EndProperty
  157.          EndProperty
  158.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  159.             Key             =   "Open"
  160.             Object.ToolTipText     =   "Open"
  161.             ImageKey        =   "Open"
  162.          EndProperty
  163.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  164.             Key             =   "Save"
  165.             Object.ToolTipText     =   "Save"
  166.             ImageKey        =   "Save"
  167.          EndProperty
  168.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  169.             Key             =   "Convert"
  170.             Object.ToolTipText     =   "Convert"
  171.             ImageKey        =   "bitmap_4"
  172.          EndProperty
  173.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  174.             Style           =   3
  175.          EndProperty
  176.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  177.             Key             =   "Play"
  178.             Object.ToolTipText     =   "Play"
  179.             ImageKey        =   "Play"
  180.          EndProperty
  181.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  182.             Key             =   "Pause"
  183.             Object.ToolTipText     =   "Pause"
  184.             ImageKey        =   "bitmap_8"
  185.          EndProperty
  186.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  187.             Key             =   "Stop"
  188.             Object.ToolTipText     =   "Stop"
  189.             ImageKey        =   "Stop"
  190.          EndProperty
  191.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  192.             Key             =   "Record"
  193.             Object.ToolTipText     =   "Record"
  194.             ImageKey        =   "Record"
  195.          EndProperty
  196.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  197.             Style           =   3
  198.          EndProperty
  199.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  200.             Key             =   "Cut"
  201.             Object.ToolTipText     =   "Cut"
  202.             ImageKey        =   "Cut"
  203.          EndProperty
  204.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  205.             Key             =   "Copy"
  206.             Object.ToolTipText     =   "Copy"
  207.             ImageKey        =   "Copy"
  208.          EndProperty
  209.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  210.             Key             =   "Paste"
  211.             Object.ToolTipText     =   "Paste"
  212.             ImageKey        =   "Paste"
  213.          EndProperty
  214.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  215.             Key             =   "Mix"
  216.             Object.ToolTipText     =   "Mix"
  217.             ImageKey        =   "bitmap_3"
  218.          EndProperty
  219.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  220.             Style           =   3
  221.          EndProperty
  222.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  223.             Key             =   "Undo"
  224.             Object.ToolTipText     =   "Undo"
  225.             ImageKey        =   "Undo"
  226.          EndProperty
  227.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  228.             Key             =   "Redo"
  229.             Object.ToolTipText     =   "Redo"
  230.             ImageKey        =   "Redo"
  231.          EndProperty
  232.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  233.             Style           =   3
  234.          EndProperty
  235.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  236.             Key             =   "ZoomIn"
  237.             Object.ToolTipText     =   "ZoomIn"
  238.             ImageKey        =   "ZoomIn1"
  239.          EndProperty
  240.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  241.             Key             =   "ZoomOut"
  242.             Object.ToolTipText     =   "ZoomOut"
  243.             ImageKey        =   "ZoomOut1"
  244.          EndProperty
  245.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  246.             Key             =   "Full"
  247.             Object.ToolTipText     =   "Full"
  248.             ImageKey        =   "Zoom 1-1 1"
  249.          EndProperty
  250.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  251.             Style           =   3
  252.          EndProperty
  253.          BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  254.             Key             =   "Amplify+"
  255.             Object.ToolTipText     =   "Amplify increase"
  256.             ImageKey        =   "CEnable1"
  257.          EndProperty
  258.          BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  259.             Key             =   "Amplify-"
  260.             Object.ToolTipText     =   "Amplify decrease"
  261.             ImageKey        =   "CEnable3"
  262.          EndProperty
  263.          BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  264.             Key             =   "Null"
  265.             Object.ToolTipText     =   "Null signal"
  266.             ImageKey        =   "CEnable2"
  267.          EndProperty
  268.          BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  269.             Key             =   "InsSilence"
  270.             Object.ToolTipText     =   "Insert silence"
  271.             ImageKey        =   "bitmap_2"
  272.          EndProperty
  273.          BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  274.             Style           =   3
  275.          EndProperty
  276.          BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  277.             Key             =   "FadeIn"
  278.             Object.ToolTipText     =   "FadeIn"
  279.             ImageKey        =   "bitmap_5"
  280.          EndProperty
  281.          BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  282.             Key             =   "FadeOut"
  283.             Object.ToolTipText     =   "FadeOut"
  284.             ImageKey        =   "bitmap_6"
  285.          EndProperty
  286.          BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  287.             Style           =   3
  288.          EndProperty
  289.          BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  290.             Key             =   "Invert"
  291.             Object.ToolTipText     =   "Invert"
  292.             ImageKey        =   "Invert"
  293.          EndProperty
  294.          BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  295.             Key             =   "Reverse"
  296.             Object.ToolTipText     =   "Reverse"
  297.             ImageKey        =   "Reverse"
  298.          EndProperty
  299.          BeginProperty Button33 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  300.             Key             =   "Normalize"
  301.             Object.ToolTipText     =   "Normalize"
  302.             ImageKey        =   "bitmap_9"
  303.          EndProperty
  304.          BeginProperty Button34 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  305.             Style           =   3
  306.          EndProperty
  307.          BeginProperty Button35 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  308.             Key             =   "Echo"
  309.             Object.ToolTipText     =   "Echo"
  310.             ImageKey        =   "Echo1"
  311.          EndProperty
  312.          BeginProperty Button36 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  313.             Key             =   "Stretch"
  314.             Object.ToolTipText     =   "Stretch"
  315.             ImageKey        =   "Pan"
  316.          EndProperty
  317.       EndProperty
  318.       BorderStyle     =   1
  319.       Begin VB.Frame Frame4 
  320.          Height          =   30
  321.          Left            =   0
  322.          TabIndex        =   10
  323.          Top             =   1260
  324.          Width           =   11670
  325.       End
  326.    End
  327.    Begin MSComctlLib.StatusBar StatusBar1 
  328.       Align           =   2  'Align Bottom
  329.       Height          =   270
  330.       Left            =   0
  331.       TabIndex        =   2
  332.       Top             =   3285
  333.       Width           =   10740
  334.       _ExtentX        =   18944
  335.       _ExtentY        =   476
  336.       _Version        =   393216
  337.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  338.          NumPanels       =   5
  339.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  340.             AutoSize        =   1
  341.             Object.Width           =   6094
  342.             MinWidth        =   3528
  343.          EndProperty
  344.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  345.             Object.Width           =   3175
  346.             MinWidth        =   3175
  347.          EndProperty
  348.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  349.             Object.Width           =   3175
  350.             MinWidth        =   3175
  351.          EndProperty
  352.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  353.             Object.Width           =   3175
  354.             MinWidth        =   3175
  355.          EndProperty
  356.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  357.             Object.Width           =   3175
  358.             MinWidth        =   3175
  359.          EndProperty
  360.       EndProperty
  361.    End
  362.    Begin MSComctlLib.ImageList ImageList1 
  363.       Left            =   4980
  364.       Top             =   2700
  365.       _ExtentX        =   1005
  366.       _ExtentY        =   1005
  367.       BackColor       =   -2147483643
  368.       ImageWidth      =   16
  369.       ImageHeight     =   16
  370.       MaskColor       =   12632256
  371.       _Version        =   393216
  372.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  373.          NumListImages   =   36
  374.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  375.             Picture         =   "frmDialog.frx":0442
  376.             Key             =   "Open"
  377.          EndProperty
  378.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  379.             Picture         =   "frmDialog.frx":0554
  380.             Key             =   "Save"
  381.          EndProperty
  382.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  383.             Picture         =   "frmDialog.frx":0666
  384.             Key             =   "Play"
  385.          EndProperty
  386.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  387.             Picture         =   "frmDialog.frx":0778
  388.             Key             =   "Pause"
  389.          EndProperty
  390.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  391.             Picture         =   "frmDialog.frx":088A
  392.             Key             =   "Stop"
  393.          EndProperty
  394.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  395.             Picture         =   "frmDialog.frx":099C
  396.             Key             =   "ZoomIn1"
  397.          EndProperty
  398.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  399.             Picture         =   "frmDialog.frx":0AAE
  400.             Key             =   "ZoomOut1"
  401.          EndProperty
  402.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.             Picture         =   "frmDialog.frx":0BC0
  404.             Key             =   "Zoom 1-1 1"
  405.          EndProperty
  406.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  407.             Picture         =   "frmDialog.frx":0CD2
  408.             Key             =   "Cut"
  409.          EndProperty
  410.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  411.             Picture         =   "frmDialog.frx":0DE6
  412.             Key             =   "Copy"
  413.          EndProperty
  414.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  415.             Picture         =   "frmDialog.frx":0EFA
  416.             Key             =   "Paste"
  417.          EndProperty
  418.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  419.             Picture         =   "frmDialog.frx":100E
  420.             Key             =   "CEnable1"
  421.          EndProperty
  422.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  423.             Picture         =   "frmDialog.frx":1120
  424.             Key             =   "CEnable3"
  425.          EndProperty
  426.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  427.             Picture         =   "frmDialog.frx":1232
  428.             Key             =   "CEnable2"
  429.          EndProperty
  430.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  431.             Picture         =   "frmDialog.frx":1344
  432.             Key             =   "Undo"
  433.          EndProperty
  434.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.             Picture         =   "frmDialog.frx":1456
  436.             Key             =   "Redo"
  437.          EndProperty
  438.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.             Picture         =   "frmDialog.frx":1568
  440.             Key             =   "Invert"
  441.          EndProperty
  442.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.             Picture         =   "frmDialog.frx":1D26
  444.             Key             =   "Record"
  445.          EndProperty
  446.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.             Picture         =   "frmDialog.frx":24E4
  448.             Key             =   "Echo1"
  449.          EndProperty
  450.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.             Picture         =   "frmDialog.frx":3136
  452.             Key             =   "Mix"
  453.          EndProperty
  454.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.             Picture         =   "frmDialog.frx":38F4
  456.             Key             =   "Volume02"
  457.          EndProperty
  458.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.             Picture         =   "frmDialog.frx":3C0E
  460.             Key             =   "Volume01"
  461.          EndProperty
  462.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.             Picture         =   "frmDialog.frx":3F28
  464.             Key             =   "Normalize"
  465.          EndProperty
  466.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.             Picture         =   "frmDialog.frx":4E3E
  468.             Key             =   "Reverse"
  469.          EndProperty
  470.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.             Picture         =   "frmDialog.frx":5158
  472.             Key             =   "ConvertFormat"
  473.          EndProperty
  474.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.             Picture         =   "frmDialog.frx":5DAA
  476.             Key             =   "Pan"
  477.          EndProperty
  478.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.             Picture         =   "frmDialog.frx":6CC0
  480.             Key             =   "IMG27"
  481.          EndProperty
  482.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.             Picture         =   "frmDialog.frx":7914
  484.             Key             =   "IMG28"
  485.          EndProperty
  486.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.             Picture         =   "frmDialog.frx":8568
  488.             Key             =   "New"
  489.          EndProperty
  490.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.             Picture         =   "frmDialog.frx":867A
  492.             Key             =   "bitmap_4"
  493.          EndProperty
  494.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.             Picture         =   "frmDialog.frx":878C
  496.             Key             =   "bitmap_3"
  497.          EndProperty
  498.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.             Picture         =   "frmDialog.frx":889E
  500.             Key             =   "bitmap_5"
  501.          EndProperty
  502.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.             Picture         =   "frmDialog.frx":89B0
  504.             Key             =   "bitmap_6"
  505.          EndProperty
  506.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.             Picture         =   "frmDialog.frx":8AC2
  508.             Key             =   "bitmap_9"
  509.          EndProperty
  510.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.             Picture         =   "frmDialog.frx":8BD4
  512.             Key             =   "bitmap_8"
  513.          EndProperty
  514.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.             Picture         =   "frmDialog.frx":8CE6
  516.             Key             =   "bitmap_2"
  517.          EndProperty
  518.       EndProperty
  519.    End
  520.    Begin MSComDlg.CommonDialog CommonDialog1 
  521.       Left            =   4500
  522.       Top             =   1800
  523.       _ExtentX        =   847
  524.       _ExtentY        =   847
  525.       _Version        =   393216
  526.    End
  527.    Begin MSComctlLib.ProgressBar ProgressBar2 
  528.       Height          =   2115
  529.       Left            =   8700
  530.       TabIndex        =   11
  531.       Top             =   600
  532.       Width           =   165
  533.       _ExtentX        =   291
  534.       _ExtentY        =   3731
  535.       _Version        =   393216
  536.       Appearance      =   0
  537.       Min             =   1e-4
  538.       Max             =   32768
  539.       Orientation     =   1
  540.    End
  541.    Begin VB.Menu mnuFile 
  542.       Caption         =   "&File"
  543.       Begin VB.Menu mnuNew 
  544.          Caption         =   "New"
  545.       End
  546.       Begin VB.Menu mnuOpen 
  547.          Caption         =   "Open ..."
  548.       End
  549.       Begin VB.Menu mnuClose 
  550.          Caption         =   "Close"
  551.       End
  552.       Begin VB.Menu mnu10 
  553.          Caption         =   "-"
  554.       End
  555.       Begin VB.Menu mnuSave 
  556.          Caption         =   "Save As..."
  557.       End
  558.       Begin VB.Menu mnuSaveCopyAs 
  559.          Caption         =   "Save Select As ..."
  560.       End
  561.       Begin VB.Menu mnu12 
  562.          Caption         =   "-"
  563.       End
  564.       Begin VB.Menu mnuConvertLikeSample 
  565.          Caption         =   "Convert like Sample..."
  566.       End
  567.       Begin VB.Menu mnuConvertFromMenu 
  568.          Caption         =   "Convert from Menu ..."
  569.       End
  570.       Begin VB.Menu mnu9 
  571.          Caption         =   "-"
  572.       End
  573.       Begin VB.Menu mnuSetup 
  574.          Caption         =   "Setup ..."
  575.       End
  576.       Begin VB.Menu mnu1 
  577.          Caption         =   "-"
  578.       End
  579.       Begin VB.Menu mnuExit 
  580.          Caption         =   "Exit"
  581.       End
  582.    End
  583.    Begin VB.Menu mnuEdit 
  584.       Caption         =   "&Edit"
  585.       Begin VB.Menu mnuUndo 
  586.          Caption         =   "Undo"
  587.       End
  588.       Begin VB.Menu mnuRedo 
  589.          Caption         =   "Redo"
  590.       End
  591.       Begin VB.Menu mnu4 
  592.          Caption         =   "-"
  593.       End
  594.       Begin VB.Menu mnuCut 
  595.          Caption         =   "Cut"
  596.       End
  597.       Begin VB.Menu mnuCopy 
  598.          Caption         =   "Copy"
  599.       End
  600.       Begin VB.Menu mnuPaste 
  601.          Caption         =   "Paste"
  602.       End
  603.       Begin VB.Menu mnuMix 
  604.          Caption         =   "Mix"
  605.       End
  606.       Begin VB.Menu mnu7 
  607.          Caption         =   "-"
  608.       End
  609.       Begin VB.Menu mnuCopyClip 
  610.          Caption         =   "Copy to Clipboard"
  611.       End
  612.       Begin VB.Menu mnuPasteClip 
  613.          Caption         =   "Paste from Clipboard"
  614.       End
  615.       Begin VB.Menu mnu2 
  616.          Caption         =   "-"
  617.       End
  618.       Begin VB.Menu mnuPasteFromFile 
  619.          Caption         =   "Paste from file ..."
  620.       End
  621.       Begin VB.Menu mnuMixFromFile 
  622.          Caption         =   "Mix from file..."
  623.       End
  624.    End
  625.    Begin VB.Menu mnuView 
  626.       Caption         =   "&View"
  627.       Begin VB.Menu mnuLeftChannel 
  628.          Caption         =   "LeftChannel"
  629.       End
  630.       Begin VB.Menu mnuRightChannel 
  631.          Caption         =   "RightChannel"
  632.       End
  633.       Begin VB.Menu mnu15 
  634.          Caption         =   "-"
  635.       End
  636.       Begin VB.Menu mnuZoomIn 
  637.          Caption         =   "Zoom In"
  638.       End
  639.       Begin VB.Menu mnuZoomOut 
  640.          Caption         =   "Zoom Out"
  641.       End
  642.       Begin VB.Menu mnuFull 
  643.          Caption         =   "Full"
  644.       End
  645.    End
  646.    Begin VB.Menu mnuCommand 
  647.       Caption         =   "&Command"
  648.       Begin VB.Menu mnuPlay 
  649.          Caption         =   "Play"
  650.       End
  651.       Begin VB.Menu mnuPause 
  652.          Caption         =   "Pause"
  653.       End
  654.       Begin VB.Menu mnuStop 
  655.          Caption         =   "Stop"
  656.       End
  657.       Begin VB.Menu mnuRecord 
  658.          Caption         =   "&Record"
  659.       End
  660.       Begin VB.Menu mnu8 
  661.          Caption         =   "-"
  662.       End
  663.       Begin VB.Menu mnuAmplifyIncrease 
  664.          Caption         =   "Amplify +"
  665.       End
  666.       Begin VB.Menu mnuAmplifyDecrease 
  667.          Caption         =   "Amplify -"
  668.       End
  669.       Begin VB.Menu mnuSilence 
  670.          Caption         =   "Null amplitude"
  671.       End
  672.       Begin VB.Menu mnuInsertSilence 
  673.          Caption         =   "Insert silence"
  674.       End
  675.       Begin VB.Menu mnu3 
  676.          Caption         =   "-"
  677.       End
  678.       Begin VB.Menu mnuFadeIn 
  679.          Caption         =   "Fade In"
  680.       End
  681.       Begin VB.Menu mnuFadeOut 
  682.          Caption         =   "Fade Out"
  683.       End
  684.       Begin VB.Menu mnu11 
  685.          Caption         =   "-"
  686.       End
  687.       Begin VB.Menu mnuInvert 
  688.          Caption         =   "Invert"
  689.       End
  690.       Begin VB.Menu mnuNormalize 
  691.          Caption         =   "Normalize"
  692.       End
  693.       Begin VB.Menu mnuReverse 
  694.          Caption         =   "Reverse"
  695.       End
  696.    End
  697.    Begin VB.Menu mnuOperations 
  698.       Caption         =   "&Tools"
  699.       Begin VB.Menu mnuEcho 
  700.          Caption         =   "Echo"
  701.       End
  702.       Begin VB.Menu mnuStretch 
  703.          Caption         =   "Stretch"
  704.       End
  705.    End
  706.    Begin VB.Menu mnuHelp 
  707.       Caption         =   "&Help"
  708.       Begin VB.Menu mnuContent 
  709.          Caption         =   "Content"
  710.       End
  711.       Begin VB.Menu mnu5 
  712.          Caption         =   "-"
  713.       End
  714.       Begin VB.Menu mnuAbout 
  715.          Caption         =   "About"
  716.       End
  717.    End
  718. Attribute VB_Name = "frmDialog"
  719. Attribute VB_GlobalNameSpace = False
  720. Attribute VB_Creatable = False
  721. Attribute VB_PredeclaredId = True
  722. Attribute VB_Exposed = False
  723. Dim flgPause As Boolean
  724. Dim fName As String
  725. Private Sub Form_Load()
  726.     ClearParam
  727. End Sub
  728. Private Sub mnuNew_Click()
  729.     NewFile
  730. End Sub
  731. Private Sub mnuOpen_Click()
  732.     OpenFile
  733. End Sub
  734. Private Sub mnuClose_Click()
  735.     CloseWav
  736. End Sub
  737. Private Sub mnuSave_Click()
  738.     SaveWav
  739. End Sub
  740. Private Sub mnuSaveCopyAs_Click()
  741.     SaveCopyWav
  742. End Sub
  743. Private Sub mnuConvertLikeSample_Click()
  744.     ConvertLikeSample
  745. End Sub
  746. Private Sub mnuConvertFromMenu_Click()
  747.     ConvertFromMenu
  748. End Sub
  749. Private Sub mnuSetup_Click()
  750.     SetupOption
  751. End Sub
  752. Private Sub mnuExit_Click()
  753.     Unload Me
  754. End Sub
  755. Private Sub mnuUndo_Click()
  756.     Undo
  757. End Sub
  758. Private Sub mnuRedo_Click()
  759.     Redo
  760. End Sub
  761. Private Sub mnuCut_Click()
  762.     Cut
  763. End Sub
  764. Private Sub mnuCopy_Click()
  765.     Copy
  766. End Sub
  767. Private Sub mnuPaste_Click()
  768.     Paste
  769. End Sub
  770. Private Sub mnuMix_Click()
  771.     Mix
  772. End Sub
  773. Private Sub mnuCopyClip_Click()
  774.     CopyToClipboard
  775. End Sub
  776. Private Sub mnuPasteClip_Click()
  777.     PasteFromClipboard
  778. End Sub
  779. Private Sub mnuPasteFromFile_Click()
  780.     PasteFromFile
  781. End Sub
  782. Private Sub mnuMixFromFile_Click()
  783.     MixFromFile
  784. End Sub
  785. Private Sub mnuLeftChannel_Click()
  786.     LeftChannel
  787. End Sub
  788. Private Sub mnuRightChannel_Click()
  789.     RightChannel
  790. End Sub
  791. Private Sub mnuZoomIn_Click()
  792.     ZoomIn
  793. End Sub
  794. Private Sub mnuZoomOut_Click()
  795.     ZoomOut
  796. End Sub
  797. Private Sub mnuFull_Click()
  798.     Full
  799. End Sub
  800. Private Sub mnuPlay_Click()
  801.     Play
  802. End Sub
  803. Private Sub mnuPause_Click()
  804.     Pause
  805. End Sub
  806. Private Sub mnuStop_Click()
  807.     StopCommand
  808. End Sub
  809. Private Sub mnuRecord_Click()
  810.     Record
  811. End Sub
  812. Private Sub mnuAmplifyIncrease_Click()
  813.     AmplifyIncrease
  814. End Sub
  815. Private Sub mnuAmplifyDecrease_Click()
  816.     AmplifyDecrease
  817. End Sub
  818. Private Sub mnuSilence_Click()
  819.     Silence
  820. End Sub
  821. Private Sub mnuInsertSilence_Click()
  822.     InsertSilence
  823. End Sub
  824. Private Sub mnuFadeIn_Click()
  825.     FadeIn
  826. End Sub
  827. Private Sub mnuFadeOut_Click()
  828.     FadeOut
  829. End Sub
  830. Private Sub mnuInvert_Click()
  831.     Invert
  832. End Sub
  833. Private Sub mnuNormalize_Click()
  834.     Normalize
  835. End Sub
  836. Private Sub mnuReverse_Click()
  837.     Reverse
  838. End Sub
  839. Private Sub mnuEcho_Click()
  840.     Echo
  841. End Sub
  842. Private Sub mnuStretch_Click()
  843.     Stretch
  844. End Sub
  845. Private Sub mnuContent_Click()
  846.     SendKeys "{F1}"
  847. End Sub
  848. Private Sub mnuAbout_Click()
  849.     frmAbout.Show 1
  850. End Sub
  851. Private Sub NewFile()
  852.     NCTWavPlayer1.New 8000, 1
  853.     ShowParam
  854. End Sub
  855. Private Sub OpenFile()
  856.     Dim sFile As String
  857.     sFile = ShowDialog("Open", 0)
  858.     If sFile = "" Then Exit Sub
  859.     Me.Refresh
  860.     NCTWavPlayer1.Open sFile
  861.     fName = sFile
  862.     ShowParam
  863. End Sub
  864. Private Sub CloseWav()
  865.     h = NCTWavPlayer1.Close
  866.     ClearParam
  867. End Sub
  868. Private Sub SaveWav()
  869.     Dim sFile As String
  870.     sFile = ShowDialog("Save As", 1)
  871.     If sFile = "" Then Exit Sub
  872.     Me.Refresh
  873.     NCTWavPlayer1.Save sFile
  874.     fName = sFile
  875.     ShowParam
  876. End Sub
  877. Private Sub SaveCopyWav()
  878.     Dim sFile As String
  879.     sFile = ShowDialog("Save Select As", 1)
  880.     If sFile = "" Then Exit Sub
  881.     Me.Refresh
  882.     NCTWavPlayer1.SaveSelect sFile
  883.     ShowParam
  884. End Sub
  885. Private Sub ConvertLikeSample()
  886.     Dim sFile As String
  887.     sFile = ShowDialog("Convert Like Sample", 0)
  888.     If sFile = "" Then Exit Sub
  889.     Me.Refresh
  890.     NCTWavPlayer1.ConvertLikeSample sFile
  891.     ShowParam
  892. End Sub
  893. Private Sub ConvertFromMenu()
  894.     NCTWavPlayer1.ConvertFromMenu
  895.     ShowParam
  896. End Sub
  897. Private Sub SetupOption()
  898.     frmOptions.Show 1, Me
  899.     ShowParam
  900. End Sub
  901. Private Sub Undo()
  902.     If NCTWavPlayer1.UndoEnable Then NCTWavPlayer1.Undo
  903.     ShowParam
  904. End Sub
  905. Private Sub Redo()
  906.     If NCTWavPlayer1.RedoEnable Then NCTWavPlayer1.Redo
  907.     ShowParam
  908. End Sub
  909. Private Sub Cut()
  910.     NCTWavPlayer1.Cut
  911.     ShowParam
  912. End Sub
  913. Private Sub Copy()
  914.     NCTWavPlayer1.Copy
  915.     ShowParam
  916. End Sub
  917. Private Sub Paste()
  918.     NCTWavPlayer1.Paste
  919.     ShowParam
  920. End Sub
  921. Private Sub Mix()
  922.     NCTWavPlayer1.Mix 50, 50
  923.     ShowParam
  924. End Sub
  925. Private Sub CopyToClipboard()
  926.     NCTWavPlayer1.CopyToClipboard
  927.     ShowParam
  928. End Sub
  929. Private Sub PasteFromClipboard()
  930.     NCTWavPlayer1.PasteFromClipboard
  931.     ShowParam
  932. End Sub
  933. Private Sub PasteFromFile()
  934.     Dim sFile As String
  935.     sFile = ShowDialog("Paste From File", 0)
  936.     If sFile = "" Then Exit Sub
  937.     Me.Refresh
  938.     NCTWavPlayer1.PasteFromFile sFile
  939.     ShowParam
  940. End Sub
  941. Private Sub MixFromFile()
  942.     Dim sFile As String
  943.     sFile = ShowDialog("Mix From File", 0)
  944.     If sFile = "" Then Exit Sub
  945.     Me.Refresh
  946.     NCTWavPlayer1.MixFromFile sFile, 50, 50
  947.     ShowParam
  948. End Sub
  949. Private Sub LeftChannel()
  950.     NCTWavPlayer1.StereoChannel = 0
  951.     ShowParam
  952. End Sub
  953. Private Sub RightChannel()
  954.     NCTWavPlayer1.StereoChannel = 1
  955.     ShowParam
  956. End Sub
  957. Private Sub ZoomIn()
  958.     NCTWavPlayer1.ZoomIn
  959.     ShowParam
  960. End Sub
  961. Private Sub ZoomOut()
  962.     NCTWavPlayer1.ZoomOut
  963.     ShowParam
  964. End Sub
  965. Private Sub Full()
  966.     NCTWavPlayer1.Full
  967.     ShowParam
  968. End Sub
  969. Private Sub Play()
  970.     If flgPause = False Then
  971.         NCTWavPlayer1.Play
  972.     Else
  973.         NCTWavPlayer1.ContinuePlay
  974.     End If
  975.     ShowParam
  976. End Sub
  977. Private Sub Pause()
  978.     NCTWavPlayer1.PausePlay
  979.     flgPause = True
  980.     ShowParam
  981. End Sub
  982. Private Sub StopCommand()
  983.     NCTWavPlayer1.Stop
  984.     flgPause = False
  985.     Text8.Text = 0
  986.     ShowParam
  987. End Sub
  988. Private Sub Record()
  989.     NCTWavPlayer1.Record
  990.     ShowParam
  991. End Sub
  992. Private Sub AmplifyIncrease()
  993.     NCTWavPlayer1.Amplify 125
  994.     ShowParam
  995. End Sub
  996. Private Sub AmplifyDecrease()
  997.     NCTWavPlayer1.Amplify 80
  998.     ShowParam
  999. End Sub
  1000. Private Sub Silence()
  1001.     NCTWavPlayer1.Silence
  1002.     ShowParam
  1003. End Sub
  1004. Private Sub InsertSilence()
  1005.     NCTWavPlayer1.InsertSilence 100
  1006.     ShowParam
  1007. End Sub
  1008. Private Sub FadeIn()
  1009.     NCTWavPlayer1.Fade 0, 100
  1010.     ShowParam
  1011. End Sub
  1012. Private Sub FadeOut()
  1013.     NCTWavPlayer1.Fade 100, 0
  1014.     ShowParam
  1015. End Sub
  1016. Private Sub Invert()
  1017.     NCTWavPlayer1.Invert
  1018.     ShowParam
  1019. End Sub
  1020. Private Sub Normalize()
  1021.     NCTWavPlayer1.Normalize 75
  1022.     ShowParam
  1023. End Sub
  1024. Private Sub Reverse()
  1025.     NCTWavPlayer1.Reverse
  1026.     ShowParam
  1027. End Sub
  1028. Private Sub Echo()
  1029.     NCTWavPlayer1.Echo 1000, 50
  1030.     ShowParam
  1031. End Sub
  1032. Private Sub Stretch()
  1033.     NCTWavPlayer1.Stretch 120
  1034.     ShowParam
  1035. End Sub
  1036. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1037.     On Error Resume Next
  1038.     Select Case Button.Key
  1039.         Case "New"
  1040.             NewFile
  1041.         Case "Open"
  1042.             OpenFile
  1043.         Case "Save"
  1044.             SaveWav
  1045.         Case "Convert"
  1046.             ConvertFromMenu
  1047.             
  1048.         Case "Play"
  1049.             Play
  1050.         Case "Pause"
  1051.             Pause
  1052.         Case "Stop"
  1053.             StopCommand
  1054.         Case "Record"
  1055.             Record
  1056.             
  1057.         Case "Cut"
  1058.             Cut
  1059.         Case "Copy"
  1060.             Copy
  1061.         Case "Paste"
  1062.             Paste
  1063.         Case "Mix"
  1064.             Mix
  1065.             
  1066.         Case "Undo"
  1067.             Undo
  1068.         Case "Redo"
  1069.             Redo
  1070.             
  1071.         Case "ZoomIn"
  1072.             ZoomIn
  1073.         Case "ZoomOut"
  1074.             ZoomOut
  1075.         Case "Full"
  1076.             Full
  1077.             
  1078.         Case "Amplify+"
  1079.             AmplifyIncrease
  1080.         Case "Amplify-"
  1081.             AmplifyDecrease
  1082.         Case "Null"
  1083.             Silence
  1084.         Case "InsSilence"
  1085.             InsertSilence
  1086.             
  1087.         Case "FadeIn"
  1088.             FadeIn
  1089.         Case "FadeOut"
  1090.             FadeOut
  1091.             
  1092.         Case "Invert"
  1093.             Invert
  1094.         Case "Normalize"
  1095.             Normalize
  1096.         Case "Reverse"
  1097.             Reverse
  1098.             
  1099.         Case "Echo"
  1100.             Echo
  1101.         Case "Stretch"
  1102.             Stretch
  1103.             
  1104.     End Select
  1105. End Sub
  1106. Private Sub Slider5_Change()
  1107.     NCTWavPlayer1.Volume = 65535 - Slider5.Value
  1108. End Sub
  1109. Private Sub Slider6_Change()
  1110.     NCTWavPlayer1.VolumeBalance = Slider6.Value
  1111. End Sub
  1112. Private Sub Slider7_Change()
  1113.     NCTWavPlayer1.Gain = 65535 - Slider7.Value
  1114. End Sub
  1115. Private Sub Check6_Click()
  1116.     If Check6.Value = 1 Then
  1117.         NCTWavPlayer1.AutoGainControl = True
  1118.     Else
  1119.         NCTWavPlayer1.AutoGainControl = False
  1120.     End If
  1121. End Sub
  1122. Private Sub NCTWavPlayer1_LevelPlay(ByVal Level As Long)
  1123.     If Level = 0 Then
  1124.         ProgressBar2.Value = 0.0001
  1125.     Else
  1126.         ProgressBar2.Value = Level
  1127.     End If
  1128. End Sub
  1129. Private Sub NCTWavPlayer1_GainChange()
  1130.    Slider7.Value = 65535 - NCTWavPlayer1.Gain
  1131. End Sub
  1132. Private Sub NCTWavPlayer1_OperationBlock(ByVal Percent As Integer)
  1133. '    ProgressBar1.Value = Percent
  1134. End Sub
  1135. Private Sub NCTWavPlayer1_VolumeChange()
  1136.    Slider5.Value = 65535 - NCTWavPlayer1.Volume
  1137.    Slider6.Value = NCTWavPlayer1.VolumeBalance
  1138. End Sub
  1139. Private Sub NCTWavPlayer1_EndPlay()
  1140.     If NCTWavPlayer1.Selected = True Then Play
  1141. End Sub
  1142. Private Sub NCTWavPlayer1_ChangePlayPos()
  1143.     ShowParam
  1144. End Sub
  1145. Private Sub NCTWavPlayer1_ChangePos()
  1146.     ShowParam
  1147.     flgPause = False
  1148. End Sub
  1149. Private Sub ClearParam()
  1150.     ProgressBar1.Min = 0
  1151.     ProgressBar1.Max = 100
  1152.     ProgressBar1.Value = 0
  1153.     Slider5.Value = 65535 - NCTWavPlayer1.Volume
  1154.     Slider6.Value = NCTWavPlayer1.VolumeBalance
  1155.     Slider7.Value = 65535 - NCTWavPlayer1.Gain
  1156.     If NCTWavPlayer1.AutoGainControl = True Then
  1157.         Check6.Value = 1
  1158.     Else
  1159.         Check6.Value = 0
  1160.     End If
  1161.     flgPause = False
  1162.     StatusBar1.Panels(1).Text = ""
  1163.     StatusBar1.Panels(2).Text = ""
  1164.     StatusBar1.Panels(3).Text = ""
  1165.     StatusBar1.Panels(4).Text = ""
  1166.     StatusBar1.Panels(5).Text = ""
  1167.     Me.Caption = "NCTWavPlayer ActiveX Control - Test MS VB 6.0"
  1168. End Sub
  1169. Private Sub ShowParam()
  1170.     StatusBar1.Panels(1).Text = NCTWavPlayer1.FormatString
  1171.     StatusBar1.Panels(2).Text = "nSamples: " & NCTWavPlayer1.nSamples
  1172.     StatusBar1.Panels(3).Text = "StartPos: " & NCTWavPlayer1.StartPos
  1173.     StatusBar1.Panels(4).Text = "EndPos: " & NCTWavPlayer1.EndPos
  1174.     StatusBar1.Panels(5).Text = "Time: " & NCTWavPlayer1.SamplToSec(NCTWavPlayer1.nSamples) & " sec"
  1175.     Me.Caption = "NCTWavPlayer ActiveX Control - Test MS VB 6.0 - " & fName
  1176. End Sub
  1177. Private Function ShowDialog(ByVal Title As String, ByVal DType As Long) As String
  1178.     ShowDialog = ""
  1179.     With CommonDialog1
  1180.         .FileName = ""
  1181.         .InitDir = "c:\"
  1182.         .DialogTitle = Title
  1183.         .CancelError = False
  1184.         Select Case DType
  1185.         Case 0
  1186.             .Filter = "Wav Files (*.wav)|*.wav|MP3 Files(*.mp3)|*.mp3"
  1187.             .ShowOpen
  1188.         Case 1
  1189.             .Filter = "Wav Files (*.wav)|*.wav|MP3 Files(*.mp3)|*.mp3"
  1190.             .ShowSave
  1191.         Case Default
  1192.             Exit Function
  1193.         End Select
  1194.         If Len(.FileName) = 0 Then Exit Function
  1195.         ShowDialog = .FileName
  1196.     End With
  1197. End Function
  1198.